home *** CD-ROM | disk | FTP | other *** search
/ SPACE 1 / SPACE - Library 1 - Volume 1.iso / program / 70 / examples / examples.arc / NEW.ST < prev    next >
Text File  |  1985-11-20  |  245b  |  28 lines

  1. Class Acl
  2. | vara |
  3. [
  4.     new
  5.         vara <- 'correct'
  6. |
  7.     printa
  8.         vara print
  9. ]
  10.  
  11. Class Bcl :Acl
  12. | varb |
  13. [
  14.     new
  15.         varb <- 'correct'
  16. |
  17.     printb
  18.         varb print
  19. ]
  20.  
  21. Class Main
  22. [
  23.     main        | i |
  24.         i <- Bcl new .
  25.         i printb .
  26.         i printa
  27. ]
  28.